home *** CD-ROM | disk | FTP | other *** search
/ Super League / Super League.iso / SOFTWARE / INFOVIA / OS2 / INSTALAR.CMD < prev    next >
Encoding:
Text File  |  1997-04-03  |  1.1 KB  |  38 lines
  1. /**/
  2. say 'Programa de Instalación de INFOVIA'
  3. parse source  origen_1
  4. parse value origen_1 with . . origen
  5. unidad = filespec("drive", origen)
  6. directorio_barra = filespec("path", origen)
  7. directorio = substr(directorio_barra, 1, length(directorio_barra)-1)
  8. origen = unidad||directorio
  9.  
  10. if Translate(unidad) = 'A:' | Translate(unidad) = 'B:' | ,
  11.    stream(origen||'\infovia.zip','c','query exists') = '' then do
  12.   say 'Copiando fichero a directorio temporal'
  13.   '@md c:\infovtmp'
  14.   '@copy 'origen'\*.exe C:\INFOVTMP > nul'
  15.   '@copy 'origen'\*.dll C:\INFOVTMP > nul'
  16.   '@copy C:\INFOVTMP\*.dll C:\INFOVTMP\DLL > nul'
  17.   env = "OS2ENVIRONMENT"
  18.   rc = value('path','c:\infovtmp;'||value('path',,env),env)
  19.   '@c:'
  20.   '@cd infovtmp'
  21.   '@c:\infovtmp\infoinst 'origen
  22.   '@c:'
  23.   '@cd \infovtmp'
  24.   say 'Borrando ficheros del directorio temporal'
  25.   '@del c:\infovtmp /n > nul'
  26.   '@cd \'
  27.   '@rd infovtmp >nul '
  28. end
  29. else do
  30.   env = "OS2ENVIRONMENT"
  31.   rc = value('path',origen';'||value('path',,env),env)
  32.   '@'unidad
  33.   '@cd 'origen
  34.   '@infoinst 'origen
  35. end
  36.  
  37. exit
  38.